library(tidyverse)
library(janitor)
library(lubridate)
deprivation <- read_csv("raw_data/admissions_by_hb_and_deprivation.csv") %>%
clean_names()
dep_date <- deprivation %>%
mutate(
year = str_extract(week_ending, "^\\d{4}"),
monthday = str_extract(week_ending, "\\d{4}$"),
month = str_extract(monthday, "^\\d{2}"),
day = str_extract(monthday, "\\d{2}$"),
date = ymd(str_c(year, month, day)), .after = 1
)
deprivation_ploty <- dep_date %>%
group_by(date, simd_quintile) %>%
summarise(avg_admissions = mean(number_admissions)) %>%
ggplot() +
aes(x = date, y = avg_admissions, colour = simd_quintile) +
geom_line()
`summarise()` has grouped output by 'date'. You can override using the `.groups` argument.
ggplotly(deprivation_ploty)
input = list(
)
LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKYGBge3J9CmxpYnJhcnkodGlkeXZlcnNlKQpsaWJyYXJ5KGphbml0b3IpCmxpYnJhcnkobHVicmlkYXRlKQpgYGAKCmBgYHtyfQpkZXByaXZhdGlvbiA8LSByZWFkX2NzdigicmF3X2RhdGEvYWRtaXNzaW9uc19ieV9oYl9hbmRfZGVwcml2YXRpb24uY3N2IikgJT4lIAogIGNsZWFuX25hbWVzKCkKYGBgCgpgYGB7cn0KZGVwX2RhdGUgPC0gZGVwcml2YXRpb24gJT4lIAogIG11dGF0ZSgKICAgIHllYXIgPSBzdHJfZXh0cmFjdCh3ZWVrX2VuZGluZywgIl5cXGR7NH0iKSwKICAgIG1vbnRoZGF5ID0gc3RyX2V4dHJhY3Qod2Vla19lbmRpbmcsICJcXGR7NH0kIiksCiAgICBtb250aCA9IHN0cl9leHRyYWN0KG1vbnRoZGF5LCAiXlxcZHsyfSIpLAogICAgZGF5ID0gc3RyX2V4dHJhY3QobW9udGhkYXksICJcXGR7Mn0kIiksCiAgICBkYXRlID0geW1kKHN0cl9jKHllYXIsIG1vbnRoLCBkYXkpKSwgLmFmdGVyID0gMQogICkKYGBgCgpgYGB7cn0KZGVwX2RhdGUkc2ltZF9xdWludGlsZSA8LSBhc19mYWN0b3IoZGVwX2RhdGUkc2ltZF9xdWludGlsZSkKCmxpYnJhcnkocGxvdGx5KQoKZGVwcml2YXRpb25fcGxvdHkgPC0gZGVwX2RhdGUgJT4lCiAgZ3JvdXBfYnkoZGF0ZSwgc2ltZF9xdWludGlsZSkgJT4lIAogIHN1bW1hcmlzZShhdmdfYWRtaXNzaW9ucyA9IG1lYW4obnVtYmVyX2FkbWlzc2lvbnMpKSAlPiUgCiAgZ2dwbG90KCkgKwogIGFlcyh4ID0gZGF0ZSwgeSA9IGF2Z19hZG1pc3Npb25zLCBjb2xvdXIgPSBzaW1kX3F1aW50aWxlKSArCiAgZ2VvbV9saW5lKCkKCmdncGxvdGx5KGRlcHJpdmF0aW9uX3Bsb3R5KQpgYGAKCmBgYHtyfQoKaW5wdXQgPSBsaXN0KAogIAogIAopCmBgYAoK